home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 013 / dskwatch.arc / DSKWATCH.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-05-15  |  2.3 KB  |  41 lines
  1. 10   DIM E$(10):E$(1)="Disk Error: "
  2. 20   REM Make sure each of the following messages has 12 characters total.
  3. 30   E$(2)="No Response ":E$(3)="Failed Seek ":E$(4)="NEC Error   "
  4. 40   E$(5)="Bad CRC Seen":E$(6)="DMA Overrun ":E$(7)="Impos Sector"
  5. 50   E$(8)="No Addr Mark":E$(9)="W. Protected":E$(10)="Err Unknown "
  6. 60   OPEN "DSKWATCH.COM" AS # 1  LEN = 1     'Open Dskwatch.com
  7. 70   PRINT "CREATING DSKWATCH.COM"
  8. 80   FIELD #1,1 AS BYTE.$                    'Specify what goes into it
  9. 90   FOR N = 1 TO 193                        '193 bytes
  10. 100   READ BYTE.%
  11. 110   IF BYTE.% <> -1 GOTO 150
  12. 120   FOR I = 1 TO 10:FOR J = 1 TO 12
  13. 130   LSET BYTE.$ = MID$(E$(I),J,1):PUT #1
  14. 140   NEXT J:NEXT I:GOTO 170
  15. 150   LSET BYTE.$ = CHR$(BYTE.%)              'Load byte into buffer
  16. 160   PUT #1                                  'Write buffer out
  17. 170   NEXT N
  18. 180   CLOSE #1                                'Close file
  19. 190   PRINT "DSKWATCH.COM CREATED."           'And you're done.
  20. 200   END
  21. 210   DATA  233,  251,    0,   -1,    0,    0,    0,    0,    0,    0
  22. 220   DATA    0,    0,    0,    0,    0,    0,    0,    0,  156,   46
  23. 230   DATA  255,   30,  129,    1,  156,   46,  143,    6,  125,    1
  24. 240   DATA  114,    3,  235,   63,  144,   80,   81,   82,   87,   86
  25. 250   DATA    6,   46,  141,   54,    3,    1,  186,    0,  176,  142
  26. 260   DATA  194,   46,  139,   62,  127,    1,   46,    3,   62,  123
  27. 270   DATA    1,  232,   57,    0,  182,  128,  185,    7,    0,   58
  28. 280   DATA  230,  116,   15,  131,  198,   12,  208,  238,  226,  245
  29. 290   DATA  128,  252,    3,  116,    3,  131,  198,   12,  232,   30
  30. 300   DATA    0,    7,   94,   95,   90,   89,   88,   46,  143,    6
  31. 310   DATA  133,    1,   46,  143,    6,  135,    1,  131,  196,    2
  32. 320   DATA   46,  255,   54,  125,    1,  157,   46,  255,   46,  133
  33. 330   DATA    1,  185,   12,    0,   46,  164,  176,    7,   38,  136
  34. 340   DATA    5,   71,  226,  246,  195,  184,    0,    0,  142,  216
  35. 350   DATA  161,   76,    0,   46,  163,  129,    1,  161,   78,    0
  36. 360   DATA   46,  163,  131,    1,  199,    6,   76,    0,  137,    1
  37. 370   DATA  140,   14,   78,    0,  180,   15,  205,   16,  128,  236
  38. 380   DATA   25,  208,  228,   46,  136,   38,  123,    1,  168,    4
  39. 390   DATA  117,    7,   46,  199,    6,  127,    1,    0,  128,  186
  40. 400   DATA  254,    1,  205,   39
  41.